home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Write3 / REXX / ClearUmlauts.wrx < prev    next >
Text File  |  1996-09-26  |  3KB  |  97 lines
  1. /*
  2.  *
  3.  * Script für WRITE 3.368 © 1989 - 1993 by Tim Teulings
  4.  * Dieses REXX-Script konvertiert die Zeichen ä,ö,ü,Ä,Ö,Ü,ß nach
  5.  * ae,oe,ue,Ae,Oe,Ue,ss
  6.  *
  7.  * Dies ist sehr nützlich für Texte, die an einen PC oder Unix-Rechner
  8.  * übergeben werden sollen, oder die per EMail in eine Gruppe/ein Netz
  9.  * geschickt werden, welche(s) Umlaute verbietet.
  10.  *
  11.  */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. IF ~show('P',"WRITE")
  16. THEN DO
  17.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  18.  exit 10
  19. END
  20.  
  21. ADDRESS "WRITE"
  22.  
  23. 'VERSIONCHECK 3848 "ClearUmlauts.wrx"'
  24. IF RC~=0 THEN DO
  25.   exit 10
  26. END
  27.  
  28. 'GETVAR "_CurrentID"'
  29. ID = RESULT           /* GETVAR gibt den ID des aktuellen Fenster zurück,  */
  30.                       /* der von den weiteren Befehlen benötigt wird.      */
  31.  
  32. IF ID=0 THEN DO
  33.   MESSAGEOK (Kein Fenster aktiviert !)
  34.   EXIT
  35. END
  36.  
  37. OPENPORT ID           /* PrivatePort des aktuellen Fensters öffnen        */
  38. Port = RESULT
  39.  
  40. IF Port="" THEN DO    /* 'OPENPORT' gibt "" zurück, wenn Port nicht       */
  41.                       /* geöffnet werden konnte                           */
  42.  
  43.   LOCKWINDOW ID
  44. END
  45. ELSE DO
  46.   INTERPRET ADDRESS Port  /* PrivatePort addressieren.Alle Komandos beziehen */
  47.                           /* sich nun auf das Fenster mit diesem Port        */
  48. END
  49.  
  50. 'SILENT'                /* Silent-Mode wegen Geschwindigkeit               */
  51.  
  52. 'GETVAR "_xPos"'        /* Cursorposition holen                            */
  53. OldPos.x = RESULT
  54. 'GETVAR "_yPos"'
  55. OldPos.y = RESULT
  56.  
  57. 'SETVAR "_FindString"    "ä" '
  58. 'SETVAR "_ReplaceString" "ae"'
  59. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  60.  
  61. 'SETVAR "_FindString"    "ö" '
  62. 'SETVAR "_ReplaceString" "oe"'
  63. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  64.  
  65. 'SETVAR "_FindString"    "ü" '
  66. 'SETVAR "_ReplaceString" "ue"'
  67. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  68.  
  69. 'SETVAR "_FindString"    "Ä" '
  70. 'SETVAR "_ReplaceString" "Ae"'
  71. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  72.  
  73. 'SETVAR "_FindString"    "Ö" '
  74. 'SETVAR "_ReplaceString" "Oe"'
  75. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  76.  
  77. 'SETVAR "_FindString"    "Ü" '
  78. 'SETVAR "_ReplaceString" "Ue"'
  79. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  80.  
  81. 'SETVAR "_FindString"    "ß" '
  82. 'SETVAR "_ReplaceString" "ss"'
  83. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  84.  
  85. GOTO OldPos.x OldPos.y  /* Wieder zur alten Position zurückspringen        */
  86.  
  87. WINDOW 0 0 0 0          /* Silent-Mode wieder ausschalten                  */
  88.  
  89. "MESSAGEOK (REXX-Script\n'ClearUmlauts'\n\nFertig !)"
  90.  
  91. IF Port="" THEN DO
  92.   LOCKWINDOW 0
  93. END
  94. ELSE DO
  95.   CLOSEPORT ID
  96. END
  97.